Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_89 / stratego / stratego.bas (.txt) next >

Wrap

Atari STOS Basic | 1989-07-03 | 123KB | 630 lines

1 REM ********************************** 10 GOSUB 1000 MENU$ 10000 RESTORE 10005 VARNAME 10010 FOR 10020 READ 10030 VARNAME 10035 VARNAME 10037 NEXT 10040 VARNAME 10045 VARNAME 10047 REM ******************** 10048 REM ** Show backsides ** 10049 REM ******************** 10050 FOR 10060 VARNAME 10070 VARNAME 10080 SPRITE 10090 SPRITE 10097 REM ************************** 10098 REM ** Show flag if visible ** 10099 REM ************************** 1010 MENU$ 10100 IF 10110 FOR 10115 IF 10120 VARNAME 10130 IF 10140 SCREEN COPY 10150 SCREEN COPY 10160 VARNAME 10170 SPRITE 10190 VARNAME 10200 IF 10210 VARNAME 10290 NEXT 10297 REM **************** 10298 REM ** Who begins ** 10299 REM **************** 1030 MENU$ 10300 VARNAME 10305 IF 10310 WAIT 1050 MENU$ 1060 MENU$ 1065 MENU$ 1070 MENU$ 1080 MENU$ 1090 MENU$ 1100 MENU$ 1110 MENU$ 1120 MENU$ 1130 MENU$ 1150 MENU$ 1160 MENU$ 1180 MENU$ 11997 REM ******************** 11998 REM ** Game main loop ** 11999 REM ******************** 1200 MENU 12000 SPRITE 12005 IF 12010 VARNAME 12020 REPEAT 12030 IF 12040 UNTIL 12045 IF 12047 IF 12050 SPRITE 12060 GOTO 12197 REM *********************** 12198 REM ** Game menu handler ** 12199 REM *********************** 12200 CLS 12297 REM *************************************** 12298 REM ** Continue game after menu interupt ** 12299 REM *************************************** 1230 ON 12300 MENU 12320 VARNAME 12330 PRINT 12332 PRINT 12335 IF 12340 PRINT 12345 PRINT 12350 PRINT 12355 CLEAR KEY 12360 MENU 12365 FOR 12370 VARNAME 12375 VARNAME 12380 IF 12390 IF 12400 SPRITE 12410 NEXT 12420 GOTO 12500 VARNAME 12510 CLEAR KEY 12996 END 12997 REM ***************** 12998 REM ** Human plays ** 12999 REM ***************** 13000 VARNAME 13003 NEXT 13005 REPEAT 13010 IF 13015 IF 13020 REPEAT 13030 VARNAME 13040 IF 13050 IF 13060 GOTO 13097 REM ******************* 13098 REM ** Pickup marker ** 13099 REM ******************* 13100 VARNAME 13110 VARNAME 13120 VARNAME 13130 IF 13140 IF 13150 IF 13160 IF 13170 IF 13180 IF 13190 IF 13200 IF 13210 RETURN 13300 VARNAME 13310 IF 13330 CHANGE MOUSE 13340 VARNAME 13350 SCREEN COPY 13360 SCREEN COPY 13365 VARNAME 13370 RETURN 13497 REM ********************************** 13498 REM ** Place marker at new position ** 13499 REM ********************************** 13500 VARNAME 13510 IF 13520 RETURN 13530 IF 13540 IF 13550 IF 13560 SPRITE 13570 VARNAME 13580 VARNAME 13797 REM ************************* 13798 REM ** Right buttonhandler ** 13799 REM ************************* 13800 IF 13805 SPRITE 13810 SPRITE 13820 VARNAME 13830 RETURN 13897 REM ***************** 13898 REM ** Scout mover ** 13899 REM ***************** 13900 VARNAME 13905 IF 13910 REPEAT 13920 UNTIL 13930 IF 13935 IF 13940 VARNAME 13950 SPRITE 13997 REM ********** 13998 REM ** WAR! ** 13999 REM ********** 14000 IF 14020 IF 14030 VARNAME 14050 IF 14060 IF 14070 IF 14080 IF 14090 VARNAME 14100 HIDE 14110 SCREEN COPY 14120 FOR 14130 SPRITE 14140 SHOW 14150 IF 14160 IF 14170 IF 14180 IF 14190 IF 14200 IF 14210 SPRITE 14220 RETURN 14230 IF 14240 IF 14250 SPRITE 14260 RETURN 14270 VARNAME 14280 BOOM 14290 IF 14300 SPRITE 14310 RETURN 14997 REM ******************** 14998 REM ** Computer plays ** 14999 REM ******************** 15000 VARNAME 15010 NEXT 15015 IF 15020 VARNAME 15025 SCREEN COPY 15026 SCREEN COPY 15028 IF 15030 VARNAME 15040 VARNAME 15070 SPRITE 15100 FOR 15103 IF 15105 VARNAME 15110 VARNAME 15120 FOR 15125 IF 15130 VARNAME 15135 IF 15140 IF 15150 VARNAME 15160 NEXT 15168 IF 15170 NEXT 15297 REM *********************************** 15298 REM ** If pri.=0 then move downwards ** 15299 REM *********************************** 15300 FOR 15310 NEXT 15397 REM ******************** 15398 REM ** Scout thinking ** 15399 REM ******************** 15400 REPEAT 15405 VARNAME 15410 IF 15420 VARNAME 15430 VARNAME 15440 IF 15445 VARNAME 15450 REPEAT 15455 VARNAME 15460 IF 15470 VARNAME 16997 REM ************************ 16998 REM ** Check about movin' ** 16999 REM ************************ 17000 IF 17010 IF 17020 IF 17030 IF 17040 VARNAME 17050 FOR 17060 NEXT 17070 IF 17075 IF 17080 IF 17085 IF 17090 VARNAME 1997 REM ****************** 1998 REM ** Selection ** 1999 REM ****************** 19996 RETURN 19997 REM ************* 19998 REM ** The End ** 19999 REM ************* 2 REM ** STRATEGO,the computer game ** 2000 VARNAME 20000 VARNAME 20010 SPRITE 20020 WAIT KEY 2010 ON 2020 GOTO 2100 VARNAME 2110 IF 2115 IF 2120 IF 2130 IF 2140 IF 2150 GOTO 2200 VARNAME 2210 ON 2220 GOTO 2997 REM ********************** 2998 REM ** About Stratego ** 29981 REM *********************** 29982 REM ** Prioritets varden ** 29983 REM *********************** 29984 DATA 29985 DATA 29986 DATA 29987 DATA 29988 DATA 29989 DATA 2999 REM ********************** 29990 DATA 29991 DATA 29992 DATA 29993 DATA 29994 DATA 29995 DATA 29996 REM ******************** 29997 REM ** Uppstallningar ** 29998 REM ******************** 29999 REM 3 REM ** programmed and designed by ** 3000 WINDOPEN 30000 REM **************** I ***************** 30001 DATA 30002 REM **************** II ***************** 30003 DATA 30004 REM **************** III ***************** 30005 DATA 30006 REM **************** IV ***************** 30007 DATA 30008 REM **************** V ***************** 30009 DATA 30010 REM *************** VI ***************** 30011 DATA 30012 REM *************** VII ***************** 30013 DATA 30014 REM *************** VIII ***************** 30015 DATA 30016 REM *************** IX ***************** 30017 DATA 30018 REM *************** X ***************** 30019 DATA 30020 REM *************** XI ***************** 30021 DATA 30022 REM *************** XII ***************** 30023 DATA 30024 REM *************** XIII ***************** 30025 DATA 30026 REM *************** XIV ***************** 30027 DATA 30028 REM *************** XV ***************** 30029 DATA 30030 REM *************** XVI ***************** 30031 DATA 30032 REM *************** XVII ***************** 30033 DATA 30034 REM *************** XVIII ***************** 30035 DATA 30036 REM *************** XIX ***************** 30037 DATA 30038 REM *************** XX ***************** 30039 DATA 30040 REM *************** XXI ***************** 30041 DATA 30042 REM *************** XXII ***************** 30043 DATA 30044 REM *************** XXIII ***************** 30045 DATA 30046 REM *************** XXIV ***************** 30047 DATA 30048 REM *************** XXV ***************** 30049 DATA 30050 REM *************** XXVI ***************** 30051 DATA 30052 REM *************** XXVII ***************** 30053 DATA 30054 REM *************** XXVIII ***************** 30055 DATA 30056 REM *************** XXIX ***************** 30057 DATA 30058 REM *************** XXX ***************** 30059 DATA 3010 VARNAME 3015 VARNAME 3020 FOR 3025 IF 3030 IF 3040 VARNAME 3055 VARNAME 3060 CLW 3065 NEXT 3070 WINDEL 3197 REM ****************** 3198 REM ** Game markers ** 3199 REM ****************** 3200 WINDOPEN 3210 HIDE 3220 FOR 3230 VARNAME 3240 READ 3250 VARNAME 3260 IF 3270 IF 3280 SPRITE 3300 READ 3310 NEXT 3320 REPEAT 3330 OFF 3340 DATA 3497 REM ********************* 3498 REM ** Load Game ** 3499 REM ********************* 3500 VARNAME 3505 IF 3510 OPEN IN 3520 FOR 3530 INPUT 3540 NEXT 3550 INPUT 3560 CLOSE 3570 MENU$ 3580 IF 3590 IF 3600 GOTO 3697 REM ********************* 3698 REM ** Save Game ** 3699 REM ********************* 3700 VARNAME 3705 IF 3710 OPEN OUT 3720 FOR 3730 PRINT 3740 NEXT 3750 PRINT 3760 CLOSE 3770 RETURN 3897 REM *********************** 3898 REM ** Level selection ** 3899 REM *********************** 3900 INC 3910 MENU$ 3920 MENU$ 3997 REM ************************** 3998 REM ** Human color change ** 3999 REM ************************** 4 REM ** Christian and Fredrik ** 4000 VARNAME 4010 IF 4020 MENU 4197 REM ************************** 4198 REM ** Change flag status ** 4199 REM ************************** 4200 VARNAME 4210 IF 4220 MENU 4397 REM ********************* 4398 REM ** Quit the game ** 4399 REM ********************* 4400 DEFAULT 5 REM ********************************** 5000 REM ****************** 5001 REM ** ** 5002 REM ** Initiering ** 5003 REM ** ** 5004 REM ****************** 5005 REM 5006 ON ERROR 5008 MODE 5010 DIM 5020 VARNAME 5030 RESTORE 5100 CLS 5110 IF 5130 WINDOPEN 5140 TITLE 5150 INPUT 5160 TITLE 5170 INPUT 5180 WINDEL 5192 REM ******************* 5193 REM ** Name ** 5194 REM ******************* 5200 WINDOPEN 5210 PRINT 5230 VARNAME 5240 IF 5250 IF 5255 IF 5260 VARNAME 5270 PRINT 5300 WINDEL 5497 REM ********************* 5498 REM ** Error handler ** 5499 REM ********************* 5500 VARNAME 5510 IF 5520 IF 5530 IF 5540 IF 5550 IF 5560 IF 5996 ERROR 5997 REM ******************** 5998 REM ** New game ** 5999 REM ********************* 6000 IF 6005 GOSUB 6007 FOR 6010 SCREEN COPY 6020 FOR 6030 VARNAME 6033 VARNAME 6040 SPRITE 6050 VARNAME 6060 IF 6070 IF 6080 SPRITE 6090 NEXT 6097 REM ********************* 6098 REM ** Main place loop ** 6099 REM ********************* 6110 GOSUB 6120 REPEAT 6122 IF 6125 REPEAT 6130 VARNAME 6140 IF 6150 IF 6160 IF 6170 GOTO 6197 REM ********************** 6198 REM ** Left sprite row ** 6199 REM ********************** 6200 IF 6210 IF 6220 IF 6230 IF 6240 IF 6250 IF 6260 RETURN 6297 REM ********************** 6298 REM ** Right sprite row ** 6299 REM ********************** 6300 IF 6310 IF 6320 IF 6330 IF 6340 IF 6350 IF 6360 RETURN 6397 REM ********************** 6398 REM ** Place option ** 6399 REM ********************** 6400 IF 6405 GOSUB 6410 VARNAME 6420 VARNAME 6430 IF 6437 SCREEN COPY 6438 SCREEN COPY 6440 SPRITE 6470 IF 6475 GOSUB 6495 IF 6496 RETURN 6697 REM ************************** 6698 REM ** Check if markers = 0 ** 6699 REM ************************** 6700 VARNAME 6702 IF 6703 IF 6710 IF 6720 RETURN 6797 REM ************************** 6798 REM ** Map plotting routine ** 6799 REM ************************** 6800 VARNAME 6820 IF 6830 IF 6840 VARNAME 6997 REM ******************************************* 6998 REM ** Remove pickup sprites if none to move ** 6999 REM ******************************************* 7000 FOR 7002 VARNAME 7004 VARNAME 7006 VARNAME 7008 IF 7009 IF 7010 IF 7020 IF 7025 NEXT 7030 VARNAME 7040 FOR 7050 IF 7060 NEXT 7070 IF 7080 POP 7997 REM ******************** 7998 REM ** Pickup routine ** 7999 REM ******************** 8000 VARNAME 8010 VARNAME 8030 VARNAME 8035 VARNAME 8040 IF 8045 IF 8050 CHANGE MOUSE 8060 SCREEN COPY 8070 SCREEN COPY 8075 VARNAME 8090 RETURN 8097 REM ******************************** 8098 REM ** Second main loop (OK loop) ** 8099 REM ******************************** 8100 GOSUB 8110 SPRITE 8115 REPEAT 8120 IF 8130 REPEAT 8140 VARNAME 8150 IF 8160 IF 8170 GOTO 8397 REM ********************** 8398 REM ** Check for yes/no ** 8399 REM ********************** 8400 SPRITE 8410 REPEAT 8415 REPEAT 8420 VARNAME 8430 IF 8440 IF 8450 GOTO 8497 REM ********************************** 8498 REM ** Randomizing computer markers ** 8499 REM ********************************** 8500 VARNAME 8510 DEC 8520 RETURN 9997 REM ********************** 9998 REM ** Prepare for game ** 9999 REM **********************